home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / source7 / gadgfrm.dfm / gadgfrm.txt next >
Encoding:
Text File  |  1995-12-22  |  3.9 KB  |  179 lines
  1. object Form1: TForm1
  2.   Left = 143
  3.   Top = 102
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'DTools Gadget Demo'
  7.   ClientHeight = 211
  8.   ClientWidth = 425
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   ShowHint = True
  15.   TextHeight = 16
  16.   object LEDLabel1: TLEDLabel
  17.     Left = 80
  18.     Top = 25
  19.     Width = 51
  20.     Height = 30
  21.     Hint = 
  22.       'This is a TLEDLabel component.  The caption property is being se' +
  23.       't automatically by the TRotaryKnob component.'
  24.     Caption = '0'
  25.     Columns = 3
  26.     UnlitColor = 16384
  27.     SegmentSize = 2
  28.   end
  29.   object PieMeter1: TPieMeter
  30.     Left = 145
  31.     Top = 19
  32.     Width = 45
  33.     Height = 45
  34.     Hint = 'This is a TPieMeter component.'
  35.     Completed = 0
  36.     Font.Color = clYellow
  37.     Font.Height = -13
  38.     Font.Name = 'System'
  39.     Font.Style = [fsBold]
  40.     ForeColor = clFuchsia
  41.     ParentFont = False
  42.     Percent = 0
  43.   end
  44.   object Image1: TImage
  45.     Left = 203
  46.     Top = 179
  47.     Width = 33
  48.     Height = 33
  49.     AutoSize = True
  50.     Picture.Data = {<image000.bmp>}
  51.     Visible = False
  52.   end
  53.   object NeatoMeter1: TNeatoMeter
  54.     Left = 8
  55.     Top = 72
  56.     Width = 185
  57.     Height = 57
  58.     Hint = 'This is a TNeatoMeter component.'
  59.     Completed = 0
  60.     Font.Color = clBlack
  61.     Font.Height = -13
  62.     Font.Name = 'System'
  63.     Font.Style = [fsBold]
  64.     ParentFont = False
  65.     Percent = 0
  66.   end
  67.   object Image2: TImage
  68.     Left = 224
  69.     Top = 152
  70.     Width = 183
  71.     Height = 55
  72.     AutoSize = True
  73.     Picture.Data = {<image001.bmp>}
  74.     Visible = False
  75.   end
  76.   object CheckBox1: TCheckBox
  77.     Left = 205
  78.     Top = 9
  79.     Width = 196
  80.     Height = 17
  81.     Hint = 
  82.       'Determines whether or not to display unlit segments of the TLEDL' +
  83.       'abel.'
  84.     Caption = 'Show Unlit LED Segments'
  85.     State = cbChecked
  86.     TabOrder = 0
  87.     OnClick = CheckBox1Click
  88.   end
  89.   object CheckBox2: TCheckBox
  90.     Left = 205
  91.     Top = 33
  92.     Width = 186
  93.     Height = 18
  94.     Hint = 
  95.       'Determines whether or not to display the Caption property on the' +
  96.       ' TPieMeter and TNeatoMeter components.'
  97.     Caption = 'Caption in Meters'
  98.     TabOrder = 1
  99.     OnClick = CheckBox2Click
  100.   end
  101.   object RotaryKnob1: TRotaryKnob
  102.     Left = 16
  103.     Top = 18
  104.     Width = 45
  105.     Height = 45
  106.     Hint = 'Turn the knob and the other gadgets will change!'
  107.     Control = LEDLabel1
  108.     Max = 100
  109.     Position = 0
  110.     OnChange = RotaryKnob1Change
  111.   end
  112.   object CheckBox3: TCheckBox
  113.     Left = 205
  114.     Top = 57
  115.     Width = 185
  116.     Height = 17
  117.     Hint = 
  118.       'Determines whether or not to display the Percent completed on th' +
  119.       'e TPieMeter and TNeatoMeter components.'
  120.     Caption = 'Show Percent in Meters'
  121.     State = cbChecked
  122.     TabOrder = 3
  123.     OnClick = CheckBox3Click
  124.   end
  125.   object RadioGroup1: TRadioGroup
  126.     Left = 208
  127.     Top = 88
  128.     Width = 201
  129.     Height = 105
  130.     Hint = 'Set TNeatoMeter bitmap display options.'
  131.     Caption = 'TNeatoMeter Bitmap Options'
  132.     ItemIndex = 0
  133.     Items.Strings = (
  134.       'Standard'
  135.       'Stretched Bitmap'
  136.       'Tiled Bitmap'
  137.       'Tiled Bitmap w/Invert')
  138.     TabOrder = 4
  139.     OnClick = RadioGroup1Click
  140.   end
  141.   object RadioGroup2: TRadioGroup
  142.     Left = 8
  143.     Top = 141
  144.     Width = 185
  145.     Height = 52
  146.     Hint = 
  147.       'Determines the direction TNeatoMeter will go to indicate progres' +
  148.       's.'
  149.     Caption = 'TNeatoMeter Direction'
  150.     Columns = 2
  151.     ItemIndex = 0
  152.     Items.Strings = (
  153.       'L->R'
  154.       'R->L'
  155.       'T->B'
  156.       'B->T')
  157.     TabOrder = 5
  158.     OnClick = RadioGroup2Click
  159.   end
  160.   object BalloonHint1: TBalloonHint
  161.     Active = True
  162.     MaxWidth = -2
  163.     Position = bpAboveRight
  164.     ShadowDepth = 8
  165.     Shape = bsRoundRect
  166.     Left = 111
  167.     Top = 2
  168.   end
  169.   object VisualApp1: TVisualApp
  170.     HelpFile = 'DELPHI.HLP'
  171.     HintColor = clWhite
  172.     HintPause = 1000
  173.     Icon.Data = {<image002.ico>}
  174.     Title = 'DTools Gadget Demo'
  175.     Left = 143
  176.     Top = 2
  177.   end
  178. end
  179.